home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ShareWare OnLine 2
/
ShareWare OnLine Volume 2 (CMS Software)(1993).iso
/
educate
/
grskill2.zip
/
BINUSER.BAS
next >
Wrap
BASIC Source File
|
1993-04-10
|
6KB
|
169 lines
DEFINT A-Z
'BINLT.BAS
'$INCLUDE: 'BINGO.BI'
SUB UnusedPuzWds (K, Cnf AS Config) STATIC
SELECT CASE K
CASE 1
REDIM ZK$(MaxWL), ZL$(MaxWL)
T8 = 0
PRINT "GOING INTO LOOP"
FOR X = 1 TO J
IF LEN(Z$(X)) <> 0 THEN
T8 = T8 + 1:
PRINT "ASSIGNING T8"
ZK$(T8) = Z$(X): ZL$(T8) = ZB$(X)
END IF
NEXT
GOSUB UnusedAlpha
CASE 2
REDIM ScrBuf2(2000)
MScrnSave 2, 1, 24, 80, ScrBuf2(0)
Row = (T8 \ 4) + 4
Y5 = 6
IF Row < 6 THEN Row = 6
MakeBox 5, 1, Row, 77, 4
LOCATE Y5, 5, 0
IF T8 = 0 THEN
MQPrint "All words in the word list were used.", Cnf.PulBar
Line24Msg 22
ELSE
FOR C5 = 1 TO T8 STEP 4
LOCATE Y5, 2: MQPrint ZK$(C5), Cnf.HelpC
LOCATE Y5, 21: MQPrint ZK$(C5 + 1), Cnf.HelpC
LOCATE Y5, 40: MQPrint ZK$(C5 + 2), Cnf.HelpC
LOCATE Y5, 59: MQPrint ZK$(C5 + 3), Cnf.HelpC: Y5 = Y5 + 1: NEXT
Line24Msg 10
IF ZI$ = "P" THEN GOSUB PrUnused
END IF
MScrnRest 2, 1, 24, 80, ScrBuf2(0)
ERASE ScrBuf2
CASE 3
GOSUB PrUnused
END SELECT
EXIT SUB
UnusedAlpha:
DA = 4
WHILE DA < T8
DA = DA + DA
WEND
DA = DA - 1
DO
DA = DA \ 2
IF DA < 1 THEN EXIT DO
FOR I = 1 TO T8 - DA
FOR M3 = I TO 1 STEP -DA
IF ZK$(M3 + DA) > ZK$(M3) THEN EXIT FOR
SWAP ZK$(M3 + DA), ZK$(M3): SWAP ZL$(M3 + DA), ZL$(M3)
NEXT M3
NEXT I
LOOP
RETURN
PrUnused:
Pgn = 1: M2 = 54
prnReadyTest 2
IF A9 = 3 THEN EXIT SUB
IF T5T = 3 THEN WIDTH "LPT1:", 255
LPRINT "The following"; T8; "words from "; ZWL$; ".WL were not used.": LPRINT STRING$(75, 42)
FOR C5 = 1 TO T8 STEP 4
LPRINT TAB(2); ZK$(C5); TAB(21); ZK$(C5 + 1); TAB(40); ZK$(C5 + 2); TAB(59); ZK$(C5 + 3)
NEXT
LPRINT CHR$(12)
RETURN
Line24Msg 3
IF ZI$ <> "P" THEN
LOCATE , , 0
EXIT SUB
END IF
prnReadyTest 2
IF A9 = 3 THEN EXIT SUB
'WHAT ABOUT PITCH '***
IF PCT$ = "WISORDER.DOC" THEN
LPRINT " Computer Programs from:"
LPRINT " "
LPRINT " WISCO COMPUTING, P. O. Box 8"
LPRINT " Wisconsin Rapids, WI 54495-0008"
LPRINT " (715) 423-8189"
LPRINT " "
LPRINT " Quantity Product Unit Price"
LPRINT " _____ GRADEBOOK POWER IBM 512K Indiv. License $59.00"
LPRINT " _____ GRADING SKILLS POWER IBM 512K Indiv. License $59.00"
LPRINT " _____ CROSSWORD POWER IBM 512K Indiv. License $39.95"
LPRINT " _____ VOCABULARY POWER IBM 512K Indiv. License $39.95"
LPRINT " _____ SURVEY POWER IBM 512K Indiv. License $39.95"
LPRINT " -------------------------------"
LPRINT " A Site License is available for all products at 3 times the"
LPRINT " cost of an Individual License. A Site License allows all"
LPRINT " employees performing their duties for the Site to legally"
LPRINT " use the program."
LPRINT " "
LPRINT " _____ _____________________________ Site License __________"
LPRINT " --------------------------------"
LPRINT " _____ Extra GRADEBOOK POWER MANUALS/Site License $2.00 ea."
LPRINT " _____ Extra GRADING SKILLS POWER MAN./Site License $2.00 ea."
LPRINT " _____ Extra CROSSWORD POWER MANUALS/Site License .50 ea."
LPRINT " _____ Extra VOCABULARY POWER MANUALS/Site License .50 ea."
LPRINT " _____ Extra SURVEY POWER MANUALS/Site License $2.00 ea."
LPRINT " ------------------------------- ----------"
LPRINT " SUB TOTAL __________"
LPRINT " WISCONSIN SALES TAX 5% __________"
LPRINT " TOTAL SHIPPING $2.00"
LPRINT " ----------"
LPRINT " TOTAL ORDER __________"
LPRINT " FOREIGN CUSTOMERS - PAYMENT MUST BE IN US DOLLARS"
LPRINT " ---------------------------------------------------------------"
IF Module > 10 THEN
LPRINT " Form SDN-93 -V2.00"
ELSE
LPRINT " Cust -93 -V2.00"
END IF
LPRINT " Please ship the latest version of these programs to:"
LPRINT " "
LPRINT " "
LPRINT " Registered Owner________________________________________________"
LPRINT " "
LPRINT " Street Address__________________________________________________"
LPRINT " "
LPRINT " City___________________________ State______ Zip Code___________"
LPRINT " "
LPRINT " IBM Disk Size Needed - (either 3 1/2 in. OR 5 1/4 in.) ________"
LPRINT " "
LPRINT " Circle Method of Payment CHECK Money Order VISA MasterCard"
LPRINT " "
LPRINT " Name on Credit Card_____________________________________________"
LPRINT " "
LPRINT " Card No.____________________________________ Exp. Date _________"
LPRINT " "
LPRINT " Where did you learn about our programs?_________________________"
LPRINT CHR$(12)
ELSE
K = EXIST(PCT$)
IF K THEN
Line24Msg 108
OPEN PCT$ FOR INPUT AS #1
WIDTH "LPT1:", 96: OPEN "O", 2, "LPT1:"
DO WHILE NOT EOF(1)
PTX$ = ""
LINE INPUT #1, PTX$
PRINT #2, LM$; PTX$
LOOP: CLOSE #1
CLOSE #2
ELSE
LOCATE 24, 1, 0: MQPrint SPACE$(80), Cnf.ActivCh
LOCATE 24, 32: MQPrint PCT$ + " not found.", Cnf.ActivCh
BEEP '*** ERRMSG MSGBOX
Pause 36
END IF
END IF
END SUB